(hack-one-local-variable): Treat varnames ending in -form or -forms like eval.

diff --git a/lisp/files.el b/lisp/files.el
index f1989dac173a4c523476e9abc4680e5fe9024b21..dc5d11e322951e5e38405db25cad4cff981537de 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1112,7 +1112,8 @@ If `enable-local-variables' is nil, this function does not check for a
        ;; "Setting" eval means either eval it or do nothing.
        ;; Likewise for setting hook variables.
        ((or (memq var '(eval file-name-handler-alist after-load-alist))
-            (string-match "-hooks?$\\|-functions?$" (symbol-name var)))
+            (string-match "-hooks?$\\|-functions?$\\|-forms?$"
+                          (symbol-name var)))
         (if (and (not (string= (user-login-name) "root"))
                  (or (eq enable-local-eval t)
                      (and enable-local-eval